0 PRINT"[147]"TAB(13)"SCORE KEEPER"
1 REM ==================================
2 REM    COMMODARES PROBLEM #49-2 :
3 REM      SCORE KEEPER
4 REM    SOLUTION BY
5 REM      CRAIG EWERT
6 REM ==================================
11 GOTO 20
12 FOR K=0 TO 4: IF SC>HS(K) THEN 14
13 NEXT: RETURN
14 INPUT"INITIALS";IN$
15 FOR I=5 TO K+1 STEP -1:HS(I)=HS(I-1):HI$(I)=HI$(I-1):NEXT:HI$(K)=IN$:HS(K)=SC
16 PRINT"[147]": FOR I=0 TO 4:PRINT I+1,HS(I),HI$(I): NEXT: RETURN
20 INPUT"SCORE";SC: GOSUB 12: GOTO 20: END